Shorten next page hint
authorjustbur <justin@burkett.cc>
Wed, 2 Sep 2015 12:51:53 +0000 (08:51 -0400)
committerjustbur <justin@burkett.cc>
Wed, 2 Sep 2015 12:51:53 +0000 (08:51 -0400)
It's too long with the buffer on the right

which-key.el

index 879a54d2b4e4b9ce9ac496e70fc0ae7d57c57f5f..c46dbff966386ba23a52122a4a33bd275d9c7fd7 100644 (file)
@@ -1056,15 +1056,15 @@ area."
   (let* ((paging-key (concat prefix-keys " " which-key-paging-key))
          (paging-key-bound (eq 'which-key-show-next-page
                                (key-binding (kbd paging-key))))
-         (key (if paging-key-bound which-key-paging-key "C-h or ?"))
+         (key (if paging-key-bound which-key-paging-key "C-h"))
          (next-page-n (format "pg %s" (1+ (mod (1+ page-n) n-pages))))
          (use-descbind (and which-key--on-last-page which-key-use-C-h-for-paging
                             which-key-prevent-C-h-from-cycling)))
     (when (or (and (< 1 n-pages) which-key-use-C-h-for-paging)
               (and (< 1 n-pages) paging-key-bound)
               use-descbind)
-      (propertize (format "[%s%s%s]" key which-key-separator
-                          (if use-descbind "describe bindings" next-page-n))
+      (propertize (format "[%s %s]" key
+                          (if use-descbind "help" next-page-n))
                   'face 'which-key-note-face))))
 
 (defun which-key--show-page (n)